-- $LastChangedDate: 2007-04-23 23:09:17 +0200 (Mon, 23 Apr 2007) $
-- $LastChangedRevision: 46 $
-- $LastChangedBy: david $

with AUnit.Test_Runner;

-- Suite for this level of tests:
with Gym_Suite;

procedure Harness is

   procedure Run is new AUnit.Test_Runner (Gym_Suite);

begin
   Run;
end Harness;


